home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / c / dice-3.16.lha / examples / Shared_Lib / auto.a next >
Text File  |  1998-09-27  |  587b  |  38 lines
  1.  
  2.             ;   Part of TEST.LIB when linking programs that
  3.             ;   use TEST.LIBRARY, provides an auto-open
  4.             ;   capability to TEST.LIBRARY
  5.  
  6.             xdef    _TestBase
  7.             xref    __AutoFail0
  8.  
  9. _LVOOpenLibrary     equ    -552
  10. _LVOCloseLibrary    equ    -414
  11.  
  12.             section autoinit0,code
  13.  
  14.             moveq.l #0,D0
  15.             lea    dtaname(pc),A1
  16.             jsr    _LVOOpenLibrary(A6)
  17.             move.l    D0,_TestBase(A4)
  18.             beq    __AutoFail0
  19.             bra    i10
  20. dtaname         dc.b    'test.library',0
  21.             ds.w    0
  22. i10
  23.  
  24.             section autoexit0,code
  25.  
  26.             move.l    _TestBase(A4),D0
  27.             beq    l10
  28.             move.l    D0,A1
  29.             jsr    _LVOCloseLibrary(A6)
  30. l10
  31.  
  32.             section libbss,bss
  33.  
  34. _TestBase        ds.l    1
  35.  
  36.             END
  37.  
  38.